option explicit
Sub Main
dim A as double, B as double
A = inputbox("Unesi vrednost A")
B = inputbox("Unesi vrednost B")
A = A + B
B = A - B
A = A - B 
msgbox(A)
msgbox(B)

End Sub